home *** CD-ROM | disk | FTP | other *** search
/ PC World 2004 June / PCWorld_2004-06_cd.bin / software / vyzkuste / koolmoves / kmsetup.exe / {app} / Motion Scripts / Light Projection / effect2.txt
Text File  |  2004-03-25  |  913b  |  43 lines
  1. // main_init function
  2.  
  3. main_init = function(mc){
  4.  sub_delay = lastsubframe;
  5.  io = new Object();
  6. }
  7.  
  8.  
  9. // main_effect function
  10.  
  11. main_effect = function(mc,frame){
  12.  if (frame > $sub_cnt * sub_delay ){
  13.   end_effect = true;
  14.   for(i=0;i<50;i++) mc["r"+i].removeMovieClip();
  15.  }  
  16. }
  17.  
  18. // sub_init function
  19.  
  20. sub_init = function(mc){
  21.  dx = mc._x-light_x;
  22.  dy = mc._y+light_y;
  23.  mc.a = Math.atan2(dy,dx);
  24.  mc.d = Math.sqrt(dx*dx+dy*dy);
  25.  dmax = Math.max(dmax,mc.d);
  26. }
  27. 4
  28. // sub_effect function
  29.  
  30. sub_effect = function(mc,frame){
  31.  d = mc.d / dmax; 
  32.  for(i=0;i<50;i++){
  33.   io._x = mc.__x + Math.cos(mc.a) * i * d ;
  34.   io._y = mc.__y + Math.sin(mc.a) * i * d ;
  35.   io._alpha = light_force * (25 - i / 2);
  36.   io._xscale = io._yscale = 100 + (max_scale - 100) * i/50;
  37.   mc.duplicateMovieClip("r"+i,$sub_cnt*10+i,io);
  38.   clr = new Color($mmc["r"+i]);
  39.   clr.setRGB(light_color);
  40.  }  
  41.  mc.done=true;
  42. }
  43.